home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / FORTRAN.500 / DISK6 / MULF.FO$ / MULF.bin
Encoding:
Text File  |  1991-04-05  |  208 b   |  12 lines
  1. C MULF.FOR
  2.  
  3.       SUBROUTINE MUL(Num1 [VALUE], Num2 [VALUE])
  4.       INTEGER*4 Num1, Num2
  5.       INTEGER*4 Result
  6.  
  7.       Result = Num1 * Num2
  8.  
  9.       CALL PRINTRESULTS( Num1, Num2, Result )
  10.  
  11.       END
  12.